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PREFACE 

This manual has been written for ALGOL users with a 4K 
or larger PDP-8, 

The subset of ALGOL compiled by the system is SUBSET ALGOL 
60 (IFIP)* with additional restrictions which are described in 
Appendix B. 

The manual is essentially a user's handbook and is not 
intended as a ALGOL Primer • chapter 1 is included as a general 
introduction to ALGOL-8. The reader who wishes to learn the 
ALGOL language in greater depth should refer to one of the 
several texts on the subject, such as ^A Guide to ALGOL Programming" 
by Daniel Dt McCracken (published by John Wiley and Sons, New 
York). 

This compiler was written by J. C. Boussard, D. Clauzel, 
and X. Nguyen Dinh of IMAG (Institute of Applied Mathematics, 
University of Grenoble). 

This manual is preliminary and subject to change without 
notice. 



♦COKuraunications of the ACM Volume 7, No. 10, October 1964 

pp 626-628 ••Report on Subset Algol 60 (IFIP). 

CMtttrtunications of the ACM Volume 6, No. 1, January 1963, 

pp 1-17 ^Revised Report on the Algorithmic Language, ALGOL 60. »• 
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chapter 1 
INTRODUCTION 

An ALGOL-8 program includes ele[nents (numbers and symbols), 
expressions (arithmetic and Boolean), statements, and declarations. 
Precise definitions of these parts of an ALGOL-8 program are con- 
tained in later chapters. Those elements which are needed to 
write simple ALGOL-8 programs are introduced in the following 
discussion, 

^.JL ALGOI^ 

ALGOL-8 programs start with a •BEGIN* statement and conclude 
with an •end* statement followed by a $ as shown below, 
•begin* 

Body of ALGOL-8 Program 



•end* 

$ 



] 



The body of the ALGOL-8 program specifies the action to be 
perfonaed. For example, the body of the program could contain 
statements to accept the input of data, perform some calculation, 
and output the results. 

The type of data (integer or real numbers) must be specified 
before it may be used in an ALGOL-8 program. The declarations 
• INTEGER • and •real^ are used to specify the type of niamber which 
is represented by a symbol, as seen below. 
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•begin* 
•real* a,b,ci 
•integer' i,j,kj 



•end' 



The • integer • and 'REAL' statements, as well as all other ALGOL-8 
statements are terminated by a semicolon. 

Once the variables are declared they may be used in ALGOL-8 

program calculations. For example the following ALGOL-8 program 

adds three nxxmbers. 

'BEGIN' 

'INTEGER* A,B,C,SUMJ 
Ai=5j 
Bi=27| 
Ci=15| 
SUMts^A^-B-i-C} 
'END* 
$ 

Notice in the above program the difference between the variables 
A, B and c and the variable SUM. A, B and c are integer constants 
given an explicit value by an assignment statement, such as AtsS). 
(The colon must be used with the equal sign in an assignment 
statement. ) SUM is an integer variable whose value is determined 
by running the program. 

The constants of the previous program need not be assigned 

the identifiers A, B and c. The same result could be achieved 

through the following program where only SUM is declared as a 

variable. 

'BEGIN* 

* INTEGER* SUM I 

SUMi= 5+27+15 J 

•end' 

$ 
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The preceding programs do not provide for the output of 
results or for the substitution of input by the user. This may 
be accomplished in ALGOL-8 through the READ and WRITE procedure 
statements. 

lj^2_ MX3^^ 

ALGOL-8 programs may use either the Teletype console or 

the high-speecl reader/punch as the input/output device for READ 

or WRITE statements. The device to be used and the infommtion 

to be read or written is specified within parentheses after the 

input/output procedure statement. The integer 1 specifies the 

ASR 33 Teletype, 2 specifies the high-speed paper tape unit, as 

seen in the following examples. 

READ (1,1) The ALGOL-8 program will accept a value 

for the variable I from the Teletype key- 
board or paper tape reader. 

WRITE (2,A,B,C) The ALGOL-8 program will punch the values 

for the variables A, B and C on the 
high-speed paper tape punch. 

The variables must be declared before they are used in a READ or 

WRITE Procedure Stat^aent. 

l^j.? Sajnple programs 

The following sample programs are provided to illustrate 
some of the features of ALGOL-8, and to acquaint the reader with 
the language in general. 

]^. 3j. 1 J^itl^ Operators 

ALGOL-8 programs may contain the arithmetic operators for 
addition (+), subtraction (-), multiplication (*), division (/), 
and exponentiation (f). The following program combines the BEhD 
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•BEGIN' 



•END' 
S 



•COMMENT' ARITHMETIC DEMO* 
•REAL' A,B,RSUM,RDIF*RPRD*RQUO; 
•INTEGERS I,J,ISUM,IDIF>IPRD,IOUOi 
WRITE (1* "TYPE TWO REAL NUMBERS") 1 SKIPi 
READ (1, A*B);SKIPl 

rsum:=a+b; write CI, a*" plus ",B,"=' 

RDIF:=A-B; write (1*A," minus ",B,"=' 

rprd:=a*b; write (i,a," times ",B,"=' 

RQUO:=A/BJ WRITE (1,A>" DIVIDED BY",B*"=' 
WRITE (1> "TYPE TWO INTEGERS") i SKIP; 
READ (1> I, J); SKIP; 

ISUM:=I+J; WRITE (1*1," PLUS ",J,"=' 

IDIF:=I-J; WRITE (1,1," MINUS ",J,"=' 

IPRD:=I*J; WRITE (1,1," TIMES ",J," = ' 

IQUO:=I/Ji WRITE (1,1," DIVIDED BY",J,"=' 



RSUM);SKIP; 
RDIF)jSKIP; 

RPRD);SKIP; 
RQU0);SKIP; 



ISUM);SKIP; 
IDIF);SKIP; 
IPRD);SKIP; 
IQU0);SKIP; 



Example A 

TYPE TWO REAL NUMBERS 
2,3 



0.200000$+01 
0.200000S+01 
0.200000$+01 
0. 2000005+01 



TYPE 
2,3 



PLUS 
MINUS 
TIMES 
DIVIDED 



TWO INTEGERS 



BY 



0.300000$+01 
0.300000$+01 
0.300000S+01 
0.3000005+01: 



.5000005+01 

■0.1000005+01 

0.6000005+01 

0.6666665+00 



2 PLUS 
2 MINUS 
2 TIMES 
2 DIVIDED 



BY 



3 = 
3 = 
3 = 
3 = 



5 

•1, 
6 
1 



Example B 



TYPE TWO REAL NUMBERS 
89,765 



0.8899995+02 
0.8899995+02 
0.8899995+02 
0.8899995+02 



TYPE TWO 
89,765 



PLUS 
MINUS 
TIMES 
DIVIDED BY 



INTEGERS 



0. 7650005+03 = 
0.7650005+03 = 
0. 7650005+03 = 
0.765000 5+03 = 



0.8539995+03 

-0.6759995+03 

0.6808495+05 

0. I 163395+00 



89 PLUS 
89 MINUS 
89 TIMES 
89 DIVIDED 



BY 



765= 
765= 
765= 
765= 



854 

-676 

1547 





Figure 1-1 AK30L-8 Arithmetic Program 
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and WRITE statements with arithmetic operators. Two examples of 
program output are also included. Following the listing the pro- 
gram is described line by line. 

Line 1 The •BEGIN' statement must be the first element 

of the ALGOL-8 program. The • COMMENT • statement 
may be used to include comments to identify the 
program in the source listing. COTciments are not 
typed during the running of the program. 
Line 2 All of the real nxamber variables which are used 

within the ALGOL-8 program are declared with the 
•real* statCTient. 
Line 3 The integer variables are declared with the 

statement • INTEGER 'o 
Line 4 The WRITE procedure statement is used to request 

user input. Any text included within double 
quotes is typed during the running of the program. 
The SKIP procedure statement is used to generate a 
new line for typed output. (It is equivalent to 
a carriage return and line feed on the Teletype 
console. ) 
Line 5 The READ procedure statement accepts the user 

input to the ALGOL-8 program. The program will 
not continue until the user types two real 
niambers on the Teletype keyboard. Real number 
input may be terminated by typing any keyboard 
character other than a number, plus or minus 
sign, period, or dollar sign. 



1-5 



Lines 6,7,8,9 Once the input of two numbers is received, 

the ALGOL-8 program computes the various 
arithmetic combinations and types the results. 
The output of results is formatted by combining 
output of text (included within double quotes) 
and variables • Variables and text are separated 
within the WRITE statement by commas* Each line 
is terminated with a SKIP to allow the next 
output to start on a new line. 

Line 10 The WRITE procedure statement on line 10 requests 

the user to input two integers. The SKIP 
generates a new line on which the input may be 
typed. 

Line 11 The READ procedure statement accepts the user 

input of two integers. The integers may be 

terminated with any character other than a number. 

Lines 12,13, The arithmetic combinations of the integers are 
14,15 

computed and typed in a similar manner to that 

for the real numbers above. 

Line 16 The 'END* statement concludes the ALGOL-8 pro- 

gram statements. 

Line 17 The ALGOL-8 program must be followed by a dollar 

sign as the first character on a line. 

The running of the program produces the output shown in 
examples A and B of figure 1-1. The examples illustrate the 
differences in ALGOL-8 representation of real numbers and integers. 
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The input of values was in all cases terminated by a carriage 
return* 

Real numbers are output in an exponential notation with the 

number separated by a dollar sign ($) from the exponential power 
(base 10) by which it is multiplied. 
Examples! 

--0.200000$ 01 equals ^0.200000X10^ equals --2.00000 

.200000$''05 equals 0.200000X10^^ equals 0.000002 

integers are output as whole numbers, with up to four digits, 
and a minus sign if the number is negative. 

Equivalent results for integer or real number input are ob- 
tained for the operations of addition and subtraction. Integer 
multiplication does not check for overflow, and as evident in 
example B, can yield incorrect results (e.g. 89 x 765 = -1547 )• 
Integer division differs from real division in that, since the 
result is not always an integer, the answer is always rounded off 
to the nearest integer. 

As evident in example B, real number representations in 
ALGOL-8 are not always exact. For example, the number 89 is 
approximated as a real number in ALGOL-8 by the number 88.9999. 

1.3,2 Compound Statements 

The example of figure 1-2 uses the multiplication operator 
to generate the first ten powers of a number. The program 
employs a POR statement to allow repeated execution of a 
grouping of ALGOL-8 statements. POR statements have the fonai 
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•for' E •step* I •UNTIL^ F •DO'S 

where E is an assignment statement (e.g. Vi=:l) 

I is an increment (e.g. 1) 

F is a final value (e.g. 10) 

S is a statement, compound statement, or block. 

The expression after 'FOR^ assigns an initial value to the 
variable. The statement following "DO* is then executed for this 
assigned value. Once the statement is executed the variable is 
incremented by the value following •STEP* and the statement follow- 
ing •do* is executed for the new value of the variable. The vari- 
able is repeatedly incremented and the statement is repeatedly 
executed for all values up to, and including, the value following 
•until* o 

In the program of figure 1-2, the 'DO* is followed by a 
COTEipound statement. A compound statement is simply two or more 
ALGOL-8 statements enclosed in stajtement^^ ( •BEGIN* and 
•end*). This group of statements is executed as if it were one 
statement following the 'DO* There must be an equal number of 
•begin* symbols and *END* symbols in every ALGOL-8 program. 

The program simply requests a real number input and then 
repeatedly executes the compound statement which computes the 
powers of A. The statement Xi=A*X computes the next power of A 
because X always equals the last power computed. Notice that X 
had to be set equal to 1 before the compound statement was executed. 
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'BEGIN* 'COMMENT' COMPUTE POWERS OF Ai 
•INTEGER'V; 'REAL' A*Xi 

WRITE(1>"F0R WHAT NUMBER WOULD YOU LIKE THE FIRST TEN POWERS?"); 
X : = 1 ; 

READ (l>A)i SKIP; 

'FOR' V:=l 'STEP' 1 'UNTIL'10 'DO' 
•BEGIN' 

X:=A*X; 

WRITE (1*A>" TO THE"* V," EQUALS">X); 
SKIP; 
'END' 

SKIP;SKIP; 
'END' 
S 



FOR WHAT NUMBER WOULD YOU LIKE THE FIRST TEN POWERS? 45. 



FOR 






.449999$+02 


TO 


THE 


1 


EQUALS 


0. 


.4499995+02 





.449999$+02 


TO 


THE 


2 


EQUALS 


0. 


.2025005+04 





.449999S+02 


TO 


THE 


3 


EQUALS 





.91 12495+05 





.4499995+02 


TO 


THE 


4 


EQUALS 


&■ 


.4100625+07 





.449999S+02 


TO 


THE 


5 


EQUALS 


0. 


.1845285+09 





.4499995+02 


TO 


THE 


6 


EQUALS 


0^ 


.8303765+10 





.4499995+02 


TO 


THE 


7 


EQUALS 





.3736695+12 





.4499995+02 


TO 


THE 


8 


EQUALS 





.1681515+14 





.4499995+02 


TO 


THE 


9 


EQUALS 


0. 


.7566805+15 





.4499995+02 


TO 


THE 


10 


EQUALS 


0' 


.340 50 55+17 


> 1 


WHAT NUMBER 


WOULD YOU 


LIKE THE FIRST TEN POWERS? 





.9869995+03 


TO 


THE 


1 


EQUALS 





.9869995+03 





.9869995+03 


TO 


THE 


2 


EQUALS 





.9741695+06 





.9869995+03 


TO 


THE 


3 


EQUALS 





.9615045+09 





.9869995+03 


TO 


THE 


4 


EQUALS 





.9490055+12 





.9869995+03 


TO 


THE 


5 


EQUALS 





.9366685+15 





.9869995+03 


TO 


THE 


6 


EQUALS 





.924491 5+18 





.9869995+03 


TO 


THE 


7 


EQUALS 





.9124725+21 





.9869995+03 


TO 


THE 


8 


EQUALS 





.9006105+24 





.9869995+03 


TO 


THE 


9 


EQUALS 





.8889025+27 





.9869995+03 


TO 


THE 


10 


EQUALS 





.8773475+30 



987 



Figure 1-2 Program to Compute First Ten Powers 
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The following sample program plots linear equations using a 
b^5ck to perform the actual plotting. An ALGOL-S block is simply 
a compound statement which contains declarations. 



• BEGIN • 

•integer^ I,J,Kj 
■real* A,B,CJ 
• BOOLEAN • N,M5 



Statement 
Statement 



^END' 



The declarations made within a block are not applicable 
outside the block. Thus local variables may be assigned which 
have a value while the program is executing a given block but which 
are not defined in an outer block. The use of the block is 
illustrated in the program example of figure 1-3, 

The first part of the program requests and accepts the real 
coefficient and the real constant tena of the linear equation 
using WRITE and READ procedure statements. The horizontal cixis 
for the values of the equation is established with four WRITE 
statements. The FOR statement is then used to plot the equation 
using values of X from -10 to 10. 

The block begins by declaring the variables which are used 
exclusively within the block. The use of local variables in large 
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programs allows the ALGOL-8 programmer to efficiently use the 
finite number of variables allowed in ALGOL-8, by freeing them 
upon exit from the block. 

Boolean variables are used to test for points which are 
outside the range of the values • 

Since the solution of the equation is a real number and the 
number of spaces must be an integer (the upper bound of a FOR 
statement must be an integer), the function ENTIER is used. ENTIER 
converts a real number, N, to the greatest integer, I (positive 
or negative), such that I is less than or equal to N ^.g* ENTIER 
(+5.9) =5| ENTIER (+6./2f) =6j ENTIER (-4.32) = ~5). The reader 
should note that ENTIER is neither truncation nor rounding off, 
although in some cases they will produce the same results. 

A FOR statement within the block is used to plot the number 
of spaces up to the point. In this case, the upper limit of the 
FOR statement is an integer variable, rather than a specific 
integer, allowing different spacing for each point plotted. 

The program loops to its beginning with a GOTO statement which 
permits the program to plot a series of equations without being 
restarted. 

A sample running of the program is also shown in figure 1-3. 
Notice that although the equation is linear, in this case the 
graph only approximates linearity because ••partial spaces •• can- 
not be plotted. 
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•BEGIN' 'COMMENT' LINEAR PLOT PROGRAM! 
'INTEGER' Xi 
'REAL' AWBJ 
LIN: WRITE (1> "I'LL PLOT YOUR LINEAR EQUATION FOR YOU!");SKIPJ 
WRITE(1>"WHAT IS THE COEFFICIENT OF X?")jSKIP; 
READ (UADiSKIPl 

WRITE (W'WHAT IS THE CONSTANT TERM?") ; SKIP; 
READ (l>B)i 
SKIP;SKIP;SKIPi 

WRITE (1>" -30 -20 -10 0")i 

WRITE (1>" 10 20 30");SKIP; 

WRITE (1>" t t t t")i 

WRITE (1>" t t t");SKIP5 

•FOR'X:=-10 'STEP'l •UNTIL'10 'DO' 
•BEGIN' 'COMMENT' PLOT BLOCK; 

'INTEGER' V^PLOT;. 

'REAL' CONST; 

'BOOLEAN' B1^B2; 

WRITE (1>X); 

CONST: =X*Al+B+34; 

PLOT:=ENTIER (CONST); 

Bl:=PL0T<2; B2:=PL0T>65; 

'IF' Bl 'THEN' 'GOTO' POINT'ELSE' 

'IF' B2 'THEN'PL0T:=66; 

'F0R'V:=1 'STEP'l 'UNTIL'PLOT 'DO'WRITE <1>" "); 
POINT:WRITE ( 1 > ••*"); SKIP; 
'END' 

SKIP;SKIP;SKIP; 'goto'lin 

•END' 
$ 

I'LL PLOT YOUR LINEAR EQUATION FOR YOU! 

WHAT IS THE COEFFICIENT OF X? 

0.66667 

WHAT IS THE CONSTANT TERM? 
2 



•10 

-9 

-8 

-7 

-6 

-5 

-4 

-3 

-2 

-1 



1 

2 

3 

A 

5 

6 

7 

8 

9 

10 



-30 



■20 



-10 
t 






* 
* 




t 






10 

t 



20 
t 



30 

T 



* 
* 



I'LL PLOT YOUR LINEAR EQUATION FOR YOU! 
WHAT IS THE COEFFICIENT OF X? 



F>igure 1-3 Linear PI ot Program 
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Chapter 2 
REPRESENTATION OF ELEMENTS 

2 . 1 Integers 

Integers are signed ntunbers (the positive sign is not always 
expressed), written without a decimal point , in the range jh 2040, 

Division between integers produces a real result. In ALGOL-8, 
division between integers yields the closest integer. For example, 
if J=8 and K=3, the division of J by K gives 2 •6666 and the result 
in ALGOL-8 is 3. 

Integers are represented with one 12-bit word. The first bit 
(bit 0) is the sign bit and bits 1 through 11 contain the integer 
magnitude • 



I Magnitude BitjZf = Sign 



1 ... 11 

2^2^^^ Real Jt^^ 

Real numbers are signed nxambers (the positive sign is not 
always expressed) of the decimal exponent form in the range 
+ 0.32$617 to + 0,31$-616 ($ indicates the multiplication by a 
power of 10). 

The forms represented by the following examples are allowed 
in ALGOL-8 programs i 

-0.1234 .5 1.2$-2 (=.012) 

5.0 -2.3 -0.1$10 (=-1,000,000,000) 
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Real numbers are represented by three 12-bit words. The 
first word represents the exponent and its sign. The second 
word represents the higher order bits of the mantissa, and 
the sign of the mantissa. The third word represents the lower 
order bits of the mantissa. 

L -|^., Exponent — ~^-^^- ^~ i- > Bit = Sign 



I k-4High order Mantissa p^ Bit = Sign 



E:B= 



hLow Order Mantissa ~^--^j 
1 ..7 — ^ 

2j 3^ Bas ic Jiymbpl s 

Basic symbols are the predefined elements of an ALGOL-8 

program. Long basic symbols are typed enclosed in single quotes, 

while short basic symbols stand alone. Appendix A contains all 

the permitted Basic Syn\bols and their representation in AtiGOL-S, 

Some symbols and logical operators are represented by a 
string of two or more letters enclosed in single quotes • They 
are identified by their first two letters only, e,g,, •BE* and 
• BEGIN • are equivalent. 

Examples I • BEGIN • •INTEGER* •SWITCH* 

2^,2^ Shx:^ 

Other basic symbols are represented by a single character 
or, exceptionally, by two successive characters (a character 
followed by an equals sign). 
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EXcunplest * multiplication 

j exponentiation 

<r= less than or equal to 

2>4 Identifiers 

An identifier is a name given to a variable in an ALGOL-8 
program. An identifier must begin with a letter and may contain 
only letters and numerals. The length of an identifier is not 
limited but only the first four alphanumeric characters are 
significant. For example, CAR15, CAR18 and CARl are interpreted 
as the same identifier. For this reason it is good practice to 
limit identifiers to four characters. 

2j^_ Conj^^ 

Integer constants (and the whole number part of real constants), 

must have an absolute valae less than or equal to 2040, when their 

value is given explicitly in an ALGOL-8 program. 

Examples I l^teofers Real Numbers 

.™_ _ 1..0 

-2035 235.0$50 

5 -2.48 

2^ yar^lables^ 

ALGOL-8 variables are quantities which are referred to by 
name (by its identifier) and are able to take on different values, 
variables may be Boolean, integer or real type. Boolean variables 
may not be subscripted. The possible values of a Boolean variable 
are true and false. 

Integer or real variables may be subscripted. (A subscripted 
variable is a real or integer one-dimensional array, as described 
in paragraph 2.7.) 
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simple variables (not subscripted) have Identifiers as 
described In paragraph 2,4 (e,go A, SUM, INT5). 

2^iZ».^ Sub^s crlEt 

Subscripted variables permit the representation of many 
quantities with one Identlf ler« A subscripted variable Is one 
dimensional array (the only type of array allowed In ALGOL-S). It 
may be an array of Integers or real numbers. 

Subscripted variables have Identifiers folllwed by brackets 
enclosing the subscript (e.g* SUM ^I^, x[j3)» The subscript Is an 
Integer and Its lowest value must be either JZf or 1. 

NOTES The brackets £ = shlft/K 

and 
2 = shlf t/M 
on the ASR 33 Teletype Keyboard o 

2^SL^ S t a t CTient s 

Statements are corronands to the computer to carry out 
operations, ALGOL-8 statements must be terminated with a semicolon. 

Examples t 

•goto^ start; 

•if* AsB "then" Xi=:1 'else* Xis0} 
Compound statements are several statements grouped together and 
enclosed between the statement brackets •BEGIN' and •END*. 

2.9 Labels 

A label Is used In an ALGOL-8 program to reference or Identify 
statements In a program. It must be an Identifier and must be 
followed by a colon. 
Example s 

STARTi READ (1, l)| 

2^4 



Chapter 3 
EXPRESSIONS 

Arithmetic expressions may include constants, variables, 
operators and functions. For example, the arithmetic expression i 



-B ♦ 



YIb^ -4AC) 



2A 
may be written as an ALGOL-8 arithmetic expression 

(-B + SQRT (Bf 2-4*A*C))/(2*A) 
where 2 and 4 are constants) A, B, and C are variables j *, f , 
-, and + are operators; and SQRT is a function. 

Constants used in arithmetic expressions may be either 
integer or real. 

Integers may be of the following forms (i.e. 1^2040). 

5 -7 2018 

Real numbers of the following form may be used in arithmetic 
expressions. 

+ a.b$+c 
where a = whole number part (5 2040) 

b S5 fractional part (6 digits or less) 
c = exponent, base 10 (-616^c^617) 

3j, 1 ,.^2 _varijab 

A variable used in an arithmetic expression is one or more 
alphanumeric characters which obey the following rules. 
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a) The first character must be a letter • 

b) Spaces are ignored. 

3) Only the first four characters are significant, and 
therefore must be unique • 

1ji JLaJL. _Q]^£§tors 

The operators in arithmetic expressions are symbols repre- 
senting the common arithmetic operations, plus left and right 
parentheses which serve as delimiters. 

Arithmetic expressions in ALGOL-8 are evaluated from left 
to right with an an additional priority rule for operators, 

priority §XSfe9l£ 

1 (, ) 

2 i 

3 *, / 

4 ->-, - 

Thus exponentiation ( f ) is performed before either multiplication 
or division, which are performed before addition or subtraction. 
Parentheses have the highest priority and may be used to give 
priority to lower operators. 

Operations of the same level are perforraed left to right. 

Example: A*B -¥ C/D - E*F t G 

(A*B) + (C/D) - (E* (Ff G)) 
Two arithmetic operators must not be written side by side. Thus 
A/-B is not a legal ALGOL-8 arithmetic expression while A/ (-B) is 
legal. All signed exponents must be enclosed in parentheses to 
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separate the exponentiation sign ( 4 ) from the sign of the 
exponent ( + or - ) . 

Division (/) and exponentiation ( \ ) are considered real 
operators. For small powers of a variable such asXt2, orXt3, 
it is preferable to use X*X, or X*X*X, so that the functions 
need not be loaded (see paragraph 8.2) • The exponentiation operator 

( t ) in ALGOL-Q is undefined when the variable is zero or a fra^-tion. 
The programmer must therefore specially treat such cases* The 
following examples demonstrate the importance of correctly 
writing the arithmetic expression. Different placements of 
parentheses can yield very different results. 

ALGOL EXPRESSION ALGEBRAIC EQUIVALENT 



A + B*X^C/X^2 = A + BX- 



X2 



(A ^^ B) * X -(C/X) t 2 = AX ♦ BX - C2 

(A -I- B) * OC - C) /Xi 2 = .M^Jt ^C^ZAC j:BC 

X2 

A + (B* X-C) / X4 2 = ^ + 1^' "" §7 

3jjLji^ -j^^^ed^^^^^^ 

variables of real and integer type may be mixed in an 
expression. Integers are converted to reals before calculations. 
The form of the expression may affect the result. 

Example: (A is real, I and J are integers) 

a) A+I+J 

I is converted to real and added to A, then J 
is converted to real and added to the sum. 

b) A+di-J) 

I and J are added as integers converted to real 
and added to A. 
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^l^^__StandarJ[^ Functions 

The following standard functions are provided in ALGOL-8, 
The argument must be a non-dimensioned real - variable except 
the argument of REAL. Constants are not allowed as arguments 
(e.g.: Y:=SIN (.5); is illegal, but PHI=.55 Y:=SIN (PHI); is 
legal). 



SORT (x) 
SIN (x) 
COS (x) 
ARCT (x) 
EXP (x) 
LN (x) 

ENTIER (x) 
REAL (I) 

SIGN (x) 

ABS (x) 



Square Root of x 

Sine of x in radians 

Cosine of x in radians 

Arctangent of x 

Exponential of x 

Logarithm (natural) of x 

Largest integer not greater than x 

Converts integer I to a real number 

r 1 for positive x 
Integer] for zero x 

^-1 for negative x 
Absolute value, or modulus of x 



The program of figure 3-1 illustrates one use of functions 
in ALGOL-8, to generate a listing of values. A later example 
(paragraph 5.3) uses functions to generate a table of values. 
AI,G0L-8 functions may be used within expressions and calculations 
as well, as long as the argument of the function is a real variable 
and not a constant. 



ALGOL-8 programs may use the following Boolean operators to 
form Boolean expressions. 

•TRUE* used to assign a logical value to a Boolean variable, 
used to assign a logical value to a Boolean variable, 
used to negate a Boolean variable 
used to combine Boolean variables 
used to combine Boolean variables 
implies - used to combine Boolean variables 
equivalence - used to combine Boolean variables. 
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• FALSE • 

•NOT* 

•AND* 

•OR^ 

tIMP* 

•EQU^ 



•BEGIN' 



•END' 



0.01 



•COMMENT* FUNCTION COMPUTERl 

•REAL' A*B; 'INTEGER* I; 

SKIP; 

START: 

WRITE 

WRITE 



READ (1>A);SKIP; 
(1* "FOR A VALUE OF'SA);SKIP; 



(1. 



COSINE 



EXPONENTIAL 



SINE 
B:= SIN(A); WRITE (1>B)J 
B:= COS(A)l WRITE (1>B); 
B:= ARCT(A); WRITE (1>B);SKIP; 
WRITE (l> •• NAT LOG 
B:=LN(A); WRITE (l^B); 
B:=EXP (A); WRITE (1>B); 
B:= SORT (A); WRITE (WB);SKIP; 
WRITE d," INTEGER PART REAL PART 
WRITE d^" ABSOLUTE VALUE*') 5 SKI P; 

I:=ENTIER (A); WRITE (1>I); 
B:=REAL (I); WRITE (1>" ' 'SB); 
B:=SIGN (A); WRITE (1>B); 
B:=ABS (A); WRITE ( 1 , B) ; SKIP; SKIP; 
•GOTO' START 



ARCTANGENT"); SKIP; 



SQR ROOT"); SKIP; 



SIGN"); 



FOR A VALUE OF 
SINE 
0.999982S-02 
NAT LOG 
-0.460516$+01 
INTEGER PART 




0.100000$-01 

COSINE 
.999949$+00 

EXPONENTIAL 
. 101004$ + 01 

REAL PART 
.000000S+00 



ARCTANGENT 
0.999965S-02 

SQR ROOT 
0.999999$-0l 

SIGN 
0. 100000S+01 



ABSOLUTE 
100000$-01 



VALUE 



-12.5731 



FOR A VALUE OF -0 . 1 25731 S+02 



SINE 
-0.6729085-02 

NAT LOG 
0.2531555+01 
INTEGER PART 
-13 



COSINE 
0.999977$+00 

EXPONENTIAL 
.346395S-05 

REAL PART 
-0 . 129999S + 02 



ARCTANGENT 
-0.149142S+01 

SQR ROOT 
0.3545855+01 

SIGN 
-0. 1000005+01 



ABSOLUTE 
1257315+02 



VALUE 



1 .05-610 



FOR A VALUE OF 
SINE 
0.3095485-563 
NAT LOG 
-0. 1404575+04 
INTEGER PART 



0.999961 5-610 
COSINE 
0.9999995+00 
EXPONENTIAL 
.4000005+612 

REAL PART 
.0000005+00 



ARCTANGENT 
0.2388135-610 

SQR ROOT 
0.9999805-305 
SIGN 
0.1000005+01 



ABSOLUTE VALUE 
0.9999615-610 



3.141592 



FOR A VALUE OF 
SINE 
.0000005+00 

NAT LOG 
0.1 144725+01 
INTEGER PART 
3 



0.31 41 595+01 

COSINE 
-0 .9999995+00 
EXPONENTIAL 
.231 4065+02 

REAL PART 
.3000005+01 



ARCTANGENT 
0.1262625+01 
SQR ROOT 
0. 1 772455+01 

SIGN 
0. 1000005+01 



ABSOLUTE VALUE 
0.3141595+01 



Figure 3-1 Function Computer Program 
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For all combinations of values for Boolean variables Bl 
and b2, the following table gives the values of the above 
combinations. 



Bl 



true 
true 
false 
false 



B2 



true 

false 

true 

false 



•^NOT 'Bl 
false 
false 
true 
true 



B1'AND*b2 

true 

false 

false 

false 



Bl* OR 


•b2 


Bl^IMP 


'B2 


B1'EQU*B2 


-■^--■^~ 


■■-— - 


rr2~_,_._:i-_ 


". — _ 


,_ .._.- ,__ 


true 




true 




true 


true 




false 




false 


true 




true 




false 


false 




true 




true 



Boolean expressions may be of the following forms i 

a) A single Boolean variable optionally preceded by 
the basic symbol •NOT*. 

•NOT'BI where Bl is declared Boolean 

b) Two Boolean variables connected by one of the four 
logical operators ( •AND • , • OR S • IMP • , or • EQU • ) • 

B3i=Bl •and* B2; 
B4t=Bl •or* B3; 
B5f=Bl •!«?• B2j 
B6t=B4 •EQU^ B2i 
where Bl, b2, b3, b4, b5, and B6 are declared Booleans, 

c) A relation comprising two simple integer arithmetic 
expressions connected by one of the six relational 
operators =, #,> = , ^ ==, >, or -c • 

X+Y-i'Z>= 5 

A#B where A,B,X,Y, and Z are integers. 
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d) A relation comprising two simple real arithmetic 

expressions connected by one of the two relational 

operatojfs ^l or > . 

X+Y+Z > 5 

A^B+1 where A,B,X,Y, and Z may be integers 

or real nximbers. 

A Boolean expression can be used directly in a conditional 

statement or can be used to assign a logical value to a Boolean 

variable as seen in the two following examples, 

•if* i-j>k 'then* 'goto* start I 

Bli=I-J^5*K| •if* Bl "THEN* •GOTO* STARTi 
In the second example above, Bl is true when I-J^5*Kj. Bl is 
false otherwise The GOTO statement is performed when Bl is true. 

a) There are no Boolean arrays in ALG0L-8# 

b) The multiple assignment of a Boolean expression value 
to a number of Boolean variables is not allowed. For 
example, "Bli=I>Jj B2i=l>j|" is acceptable while 
"b1i=B2i=i> J5« is not acceptable. 

c) The logical values *TRUE* and 'FALSE* can be used only 
to assign logical values to Boolean variables. 

Bli= • TRUE* I is permitted, while 
I-J>Ki= •false* is not penaitted. 
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chapter 4 
DECLARATIONS 

Declarations are used to specify the properties of quantities 
used in an ALGOL-S program and to associate these quantities with 
identifiers. Declarations must appear at the beginning of a 
block (i.e. before any statements which cause operations to be 
performed by the block). 

^isl^ Var^ abl e s 

variables may be real numbers, integers or Boolean. Multiple 

variables of the same type may be declared in one statement by 

separating the variables by commas and tenriinating the statement 

by a semicolon. 

Example I 

• BEGIN ^ 

•integer* NJ 

•real* a,b,c; 

•boolean* B1,B2| 

•END" 
$ 

4jiJL_. Arrays 

ALGOL-8 arrays may be either real arrays or integer arrays. 
(The type of array, integer or real, must be declared also.) The 
lower bound of the array must be either jZf or 1. The upper bound 
must be an unsigned integer or a simple integer variable, as seen 
in the example below. The bounds of the array are enclosed in 
square brackets and separated by a colon. 
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Example I 

• BEGIN • 



• INTEGER • Nj ^ r- -i 

•real* •array* AX[1i10], AYpil2J| 



•begin* ^ - 

• integer • • ARRAY • INTX [l i NJ J 



•end^ 
•end^ 

$ 

AS illustrated in the preceding example, if the upper bound of 
an array is an integer variable it must be declared and assigned 
a value in a preceding block prior to its use as an array bound. 

4.3 Switches 

Switches may be used in an ALGOL-8 program to conditionally 

transfer control to other areas of the program. The switch is 

established by the declaration •SWITCH** The switch is used to 

conditionally transfer control with a GOTO statement. 

Example: 

• BEGIN • 

•INTEGER" I; 

•switch" CHANGS|5=BP0S,BNEG,BZER05 



•goto* change [ill 

BPOS I Statement Pi; 

Statement P2; 



BNEG I Statement Nl; 
Statement N2| 



BZERO I Statement Zl; 
Statement Z2; 
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The statements identified by the labels included in the switch 
declaration are executed depending upon the value of !• if 1=1, 
the statements beginning with Pi (labeled BPOS) are executed. 
If 1=2, the statements beginning with Nl (labeled BNEG) are 
executed. If 1=3, the statements beginning with Zl (labeled 
BZERO) are executed. 

The statements to which control is transferred may be simple 
statements, compound statements or blocks. 

If Ij«^l,2, or 3, the statement •GOTO* CHANGE IQl]? is undefined. 

4» 4 .^J^ocedure s 

There are no user procedures in ALGOL-8, 
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chapter 5 
STATEMENTS 

The units of operation within the language are called 
statements • 

Statements may be of the following types i 

1) Assignment statements 

2) GOTO statements 

3) Conditional statements 

4) FOR statements 

5) Dummy statements 

5 > 1 Assignment statements 

An assignment statement relates a variable V to an arith- 
metic expression E by means of the symboli=, as in the following 
example I 

Vi?= El 
The above statement means that the value of expression E replaces 
the value of variable V. 

Multiple assignment statements can be done when more than 
one variable is to be given the value of the scime expression. 
You may write i 

Vlt=: V2i= V3is E; 
If the type of the variable (i.e. integer or real) is not the 
same as the expression, the result of this expression will be 
converted into the type of the variable. 
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^2 _ GOTOj|tab^ents 

A GOTO statement may be of the following forme i 

a) 'GOTO' LABEL} 

b) 'GOTO* SWITCH [iNDEX] j 

where LABEL is used to reference a point in the ALGOL program 

either within the block of the GOTO statement or in an outer 

block, SWITCH is a declared switch designator, and INDEX must 

be a simple integer variable or an unsigned integer. 

Example t 

'BEGIN* 'COMMENT* BLOCK Ij 

'INTEGER' I J 
STARTi READ (l,l)j 

•BEGIN' 'COMMENT' BLOCK 2j 

'SWITCH' POINT I- LOOP, EXIT? 
'GOTO' POINT til? 
LOOP I WRITE (1, "LOOP") J SKIP; 

'GOTO' START 
'END' BLOCK 2} 
EXITlWRITE (1, "EXIT") J SKIP J 
'END' BLOCK 1 
$ 

In this example, 'GOTO' START leads from the inner block (2) 
into the outer block (1) 'GOTO' POINT [l] is equivalent to 
•goto* LOOP for 1=1, or 'GOTO' EXIT for 1=2, if the value of 
I is less than 1 or greater than 2, the 'GOTO' POINT [l^ 
statement is undefined. 

54!j.,.J|OTLAtat^nents 

The FOR statement is in the following forrai 
'FOR' Vl= A 'STEP' B 'UNTIL' C 'DO' S 
where the controlled variable V jnust be a simple integer 
variable, the elements A, B, and C can be in the following 
forms t 
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a) a signed (minus only) or unsigned integer 

b) a simple integer variable 
and S is a statement 

The FOR statement can be self- imbedded since the statement 

S may itself be a FOR statement. 

NOTEt The •WHILE' basic symbol of the ALGOL 
language is not permitted in ALGOL-8. 
Thus ALGOL-8 programs may not use 
•while • to terminate FOR statements. 



•BEGIN' 'INTEGER' I; 'REAL' F.RyCS; 

WRITE (!>" DEG SIN COS"); 

SKIPiSKIP; 

F:=3. 1 41 59/180> 

'FOR' I:=0 'STEP' 10 'UNTIL' 90 'DO' 

•BEGIN' R:=:I*F; 

C:=COS(R); 

S:=SIN(R); 
WRITE ( UI,S>C);SKIP 



'END' 



'END' 

S 



DEG SIN COS 

.0000005+00 .999999S+00 

10 0.173648S+00 0.984807$+00 

20 0.342019$+00 0.939692S+00 

30 .499999S+00 0.866025$+00 

40 0.642787S+00 •7660445+00 

50 0.766043$+00 0.642787S+00 

60 .866024S+00 .5000005+00 

70 .9396925+00 .3420205+00 

80 .9848075+00 .1 736485+00 

90 .9999995+00 .9536735-06 



Figure 5-1 A FOR statement used in a Program 
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5,4 Conditional s tatemejrtts 

A conditional statement may be of the following forms i 

a) •if* Bl 'THEN' Si 

b) "IF* Bl •then" si •else* S 

c) "IF* Bl •then* S2 

where Bl is a Boolean expression of one of the forms given in 
Chapter 3 • 

Si is an unconditional statement, S2 is a FOR statement, 
S is a statement. 

The conditional statement can be self -embedded since the 
statement S may itself be a conditional statement. 

The embedding levels of FOR statements and conditional 
statements are interdependent (controlled by the same stack). 
The total number of conditional and FOR statements that can be 
accommodated at one time is 18. 



•BEGIN' 'COMMENT' CONDITIONAL DEMO; 

'INTEGER' I^J; 
START .-READ (1^I>J); 

'IF'I>J 'THEN'WRITE (l^'TIRST NUMBER IS GREATER."); 

'IF'I<J 'THEN' WRITE (1>"SEC0ND NUMBER IS GREATER .")' ELSE ' 

WRITE (1>"THEY ARE EQUAL."); 

'GOTO' START; 
'END' 
$ 



Figure 5-2 A Conditional Statement used in a Program 
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5,5 Dummy Statements 

A dummy statfement produces no executable code. It may 
be used to place a label. 

The dummy statement is allowed just before the basic symbol 

"END^ to label it or to end the last statement of a compound 

statement or a block, by a semicolon. 

Example s 

• BEGIN • 

•real* A,B| 
•integer* I,Ji 

READ (1,A,I)| 



"BEGIN* 

•if* I=J "THEN* •GOTO^ EXIT; 



Bi=A*A*A,v 

•end* 

EXIT I ^—- -^^.^^.-^ — ^-^"^ — :t:!!=s^ Dummy s ta tement s 

•END^ 

In this example, there are dummy statements before each basic 

symbol •END*. The semicolon after "Bt=A*A*A" is unnecessary 

and is considered a dummy statement. The last basic symbol 

•END^ is labeled by the dummy statement EXIT, 

_5_,6 Cpmments 

Comments are added to ALGOL-8 programs for the user^s 
convenience. They may be used to identify the function of 
statements, blocks, etc, within an ALGOL-8 program. They pro- 
duce no executable code. 

There are two forras of comments i 
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a) Comments may be introduced between declarations 
or statements by using the basic symbol ' COMMENT •. 

These comments may have any length and may contain 
all characters except the semicolon, which necessarily stops 
the comment. 

b) Comments may be introduced after the basic symbol 
•end" without using the symbol • COMMENT •. 

These comments are ended by one of the following 
three basic symbols: 
; , "END' or 'ELSE' 

or the dollar sign at the end of the program. 
The comment length is also unlimited but, in addition to 
the semicolon, the single quote is not an allowed character, 
(it serves to form the basic symbol 'END' or 'ELSE" which 
stops the comment ) . 
Example i 



•BEGIN' 'COMMENT' TEST DYNAMIC ARRAY; 
•INTEGER' I>J>K; 
READ C1>I>J); 

'COMMENT' CALCULATION OF SIZEj 
K:I+J; 

'BEGIN' 'COMMENT' K IS USED AS THE; 

•COMMENT' UPPER BOUND OF THE ARRAY; 
'ARRAY' TABLE C0:K3; 
'FOR' J:=0 'STEP' 1 'UNTIL' K 'DO 



'END' BLOCK 2 
'END' TEST; 
$ 



The semicolon which stops the comment following the last 
basic symbol •END" of the program is optional. 
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5 . 7 Saunple program 

The following sample program Illustrates all of the 
statements introduced in this chapter. The program is designed 
to plot linear, quadratic, and cubic equations. A switch is 
used to handle the three different cases. 

A conditional statement with Boolean variables is used to 
determine that the equation can be plotted by the program, i.e. 
it is linear, quadratic, or cubic. A FOR statement controls 
the number of executions of the block which plots the equation. 

I WILL PLOT YOUR EQUATION FROM X=-10 TO X=10. 

WHAT IS THE HIGHEST POWER OF X? 

3 

I'LL PLOT YOUR CUBIC EQUATION! 

WHAT IS THE COEFFICIENT OF X CUBED ? 

0.1 

WHAT IS THE COEFFICIENT OF X SQUARED ? 

0.5 

WHAT IS THE COEFFICIENT OF X? 

-5. 

WHAT IS THE CONSTANT TERM? 

-2. 



-10 
-9 
-8 
-7 
-6 
-5 
-A 
-3 
"2 
-1 



1 * 

2 * 

3 * 



* 



* 

* 
* 



* 



A 
5 
6 
7 
8 
9 
10 



* 



Figure 5-3 Sample Program Output 
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30 



-30 -20 -10 10 20 

^ t T t t t t 

* 



* 
* 
* 



♦BEGIN* 'COMMENT' PLOt PROGRAM; 
•INTEGER' XHIGH, Xi 
•REAL'A1*A2,A3/B; 
•BOOLEAN'HIGH,LOW; 

• SWITCH' CONTROL: =LIN> QUAD, CUBIC; SKIP; 

WRITE (1,"I WILL PLOT YOUR EQUATION FROM X=-10 TO X=10."); SKIP; 
ASK: WRITE (1,"WHAT IS THE HIGHEST POWER OF X?");SKIP; 
READ (1*XHIGH);SKIP; 
HIGH:=XHIGH>3; LOW: =XHI GH<1 ; 
'IF'HIGH 'OR' LOW 'THEN' 
'BEGIN' 

WRITE (1,"I'M SORRY, I'M NOT SMART ENOUGH TO ");SKIP; 
WRITE (1,"PL0T", XHIGH,"TH DEGREE EQUATI ONS! ") ; SKIP; 
WRITE (1, "WOULD YOU LIKE TO TRY AGAI N?") ; SKIP; 
'GOTO' ask; 
'END' 

'ELSE' 'GOTO'CONTROL CXHIGHD; 
LIN: WRITE (1, "I'LL PLOT YOUR LINEAR EQUATION FOR YOU!");SKIPi 
A2:=A3:=0.0; 
•GOTO' ONE; 
QUAD: WRITE (1,"I'LL PLOT YOUR QUADRATIC EQUATION FOR YOU");SKIP; 
A3: =0 .0; 
'GOTO' TWO; 
CUBIC:WRITE (1, "I'LL PLOT YOUR CUBIC EQUATI ON! "); SKIP; 

WRITE (1,"WHAT IS THE COEFFICIENT OF X CUBED ?");SKIP; 
READ (1, A3);SKIP; 
TWO: WRITE (1, "WHAT IS THE COEFFICIENT OF X SQUARED ?");SKIP; 

READ (1, A2);SKIP; 
ONE: WRITE(1,"WHAT IS THE COEFFICIENT OF X?");SKIP; 
READ (1,A1);SKIP; 

WRITE (1,"WHAT IS THE CONSTANT TERM ?"); SKIP; 
READ (1,B); 
GRAPH: SKIP;SKIP;SKIP; 

WRITE (1," -30 -20 -10 0"); 

WRITE (1," 10 20 30");SKJP; 
WRITE (.1," t t t f); 

WRITE (1>" t t f);SKIP; 

'FOR'X:=-10 'STEP'l •UNTIL'10 'DO' 

•BEGIN"COMMENT' PLOT BLOCK (NO. SPACES TO 0RIGIN=34); 
'INTEGER' V,PLOT; 
'REAL' CONST; 
'BOOLEAN' B1,B2; 
WRITE (1,X); 

CONST :=X*X*X*A3+X*X*A2+X*A1+B+ 34; 
PLOT:=ENTIER (CONST); 
Bl:=PL0T<2; B2:=PL0T>65; 
'IF' Bl 'THEN' 'GOTO' POINT'ELSE' 
•IF' B2 •THEN'PL0T:=66; 

'F0R'V:=1 •STEP^l 'UNTIL'PLOT 'DO'WRITE (1," "); 
POINT:WRITE (1,"*");SKIP; 
•END^ 

SKIP;SKIP;SKIP; •GOTO^ASK 
•END^ 
$ 

Figure 5-4 Sample ALGOL-8 Program 
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chapter 6 

input/output statements 

ALGOL-8 programs may use either the ASR-33 Teletype or a 
high speed paper tape reader/punch as an input/output device. 

6. 1 l/O Statement Form 

Input/output statements in ALGOL-8 are of the formi 

Function (Unit, Variable List) 

where 

Function » READ or WRITE 

Unit = 1 (ASR-33 Teletype) or 2 (high speed 

reader/punch) • 

variable List = One or more simple or subscripted 

variables, separated by commas. 

Example i 

'BEGIN' 

'INTEGER' S| 'INTEGER' 'ARRAY' a[1i 10 J; 



•for' Si=l 'STEP'l 'UNTIL' 10 'DO' 
READ (2, A[s])j 



'END' 

The above READ statement means that the 10 values of the 
integer array A will be read from paper tape on the high speed 
reader. The ALGOL-8 program which executes this statement will 
advance the paper tape and accept the values of these lO 
variables in the U3ASCII code. 
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There are no ALGOL-8 format statements. The output formats 
for integers and real numbers are as follows i 

Integers - space, sign and up to 4 digits, 

e.g. -1234 
Real numbers - 2 spaces, sign (if negative), jZf, decimal 

point, 6 digits, $, sign, 2 or 3 digits 

e.g. -^.123456$4'07 

The input format for ALGOL-8 programs is free form (a number 
may be typed in any form as long as it does not exceed the range 
of the variable type). Input to the operating system may be in 
parity or non-parity USASCII format (paper tape or keyboard 
initiated). Blank tape, rubout and line-feed characters are 
ignored. Spaces are also ignored except in text strings (see 6.4 
Text Output). 

Input of data to the operating system in response to a 
READ procedure statement may be terminated by any character which 
is not a number, sign, decimal point or dollar sign (indicating 
the exponent). A -*- (SHIFT/0) typed before a terraina tor deletes 
the item being input. 

£1^ _ j;e3^^0ut^it 

Alphanumeric characters included within double quotes may 
be elements of the variable list of a WRITE statement. The 
WRITE statement will type all characters which are included in 
the double quotes. Thus the WRITE statement may output text 
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or format data by supplying spaces within quotes. 
Example i 

WRITE (1, "X= ", X, " XPRIME= ", XP); 

6>5 New Line 

The output of text and data may be formatted on separate 

lines by the SKIP statement, which causes the Teletype carriage 

to be returned and a new line of output supplied • The following 

example prints the values of X, Y, and Z under their respective 

headings. 

Example s 

WRITE (1, " X Y Z "); 

SKIP; 

WRITE (1 , X, Y, B); 
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chapter 7 
DIAGNOSTICS 

7>1 Compile time diagnostics^ 

Whenever an error is detected during the compilation of an 
AIiG0L~8 program, the compiler prints an error message. 

After this detection, no recovery is possible. The user 
must correct the error, reinitialize the compiler, and restart. 

An error message is printed as follows i 

XX yy zz 

XX is the diagnostics code, yy is the line number where the error 

has been detected and zz is the character number in this line. 

Generally, line numbers and character numbers will quickly 

determine the origin of an error. But it happens that the 

^§£25^§£X ^f ^^ error may occur after the latter. For example, in 
the following linei 

•begin" 'integer I, J, K, ; •REAL* A, B, Cl 

A quote is missing after INTEGER but it would not be found before 

the detection of a second quote after REAL. Thus the character 

number would indicate an error after REAL, rather than the actual 
error after INTEGER. 

The following is a list of the error codes typed by ALGOL 
during compilation. 
^ Long Basic Symbol Error 

♦The first single quote of a long basic symbol is not found. 

*The long basic symbol is not found. 
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Ident If l er jBrror 

*An Identifier is not declared in a statement. 

*An identifier does not begin with a letter. 

*A left bracket is omitted in a subscript variable of a 

statement. 
Dec^laration Error 

*A declaration is not ended by a semicolon. 
*The long basic symbol •REAL' or •INTEGER* is followed by 

a long basic symbol other than 'ARRAY* • 
*The program contains a Boolean array declaration which 

is not allowed in ALGOL-8. 
*A left bracket or a right bracket is omitted in an array 

declaration. 
*The colon separating the lower and upper bounds is 

omitted. 
*The upper bound is an integer variable which is declared 

in the same block of the array identifier. 
*The lower bound is neither nor 1. 
Mu 1 1 iple I^eclara t ion E rror 
*The same identifier is declared more than once in the 

same block. 
Statement Error 
*The long basic symbol beginning a statement is not one 

of these following long basic symbols i 

•begin (compound statement or block) 

•if* (conditional statement 

•foR^ (for statement) 

•GOTO^ (go to statement) 

•end* (dummy statement) 
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*The input-output procedure statement READ, WRITE, or 

SKIP is not found, 
*A conditional statement is found just after the long basic 

symbol •THEN*. 
♦The statement following the long basic symbol •ELSE" does 

not correspond with the unconditional statement following 

the long basic symbol •THEN*. 

*A statement is not ended by one of the following basic 

symbols I 
Either ; or •END* or • ELSE • 
Colon and Equals Sign Error 
*The colon and equals sign representing the basic symbol i= 

are omitted in the following cases t 

*In a switch declaration, after the switch identifier. 
*In a FOR statement, after the controlled variable. 
Index Error 
*In an array declaration, the upper bound is neither an 

integer variable nor an unsigned integer o 
*In a statCTcient, a subscript Is ncd ther an integer variable 

nor an unsigned integer. 
*In a GOTO statement with a switch designator, the subscript 

is neither an integer variable nor an unsigned integer. 
*A right bracket is omitted after the subscript. 
*In a FOR statement, the controlled variable is not an 

integer variable. 
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*ln a FOR statement, the initial value, the step value or 

the final value is neither an integer variable nor a signed 
(minus only) or unsigned integer. 
S Constant putside Ran^ge 

*The value of an unsigned integer is greater than 2040 . 

when used explicitly as an ALG0L~8 program constant. 
*The integer part of a real number is greater than 2040 

when used explicitly as an ALG0L~8 program constant. 
^ Simple Boolean Expression Error 

*One of the simple arithmetic expressions of a relation 

is not an integer type. 
*ln a Boolean assignment statement, the long basic symbol 

beginning the Boolean expression is not one of the 

following I 

•true*, •false •, or •NOT* 
*The variable following a logical operator (•NOT*, 'AND*, 

•or*, 'imp*, 'EQU^) is not a Boolean variable. 
*ln a relation, a relational operator is omitted. 

*The identifier following the long basic symbol •goTO^ 

is neither a label nor a switch identifier. 
♦Labels referenced by the program remain undefined at the 

end of the program. 

♦There are too many long basic symbols •enD^. Each 
•bEGIN^ must be paired with an •end^. 
12 capacity Overflow Error 

*One of the limitations described in Appendix B is exceeded. 
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*More than 18 conditional and FOR statements were in use 

at one time in the user program. 
♦The arithmetic expression being compiled is too complex 

for ALGOL-8 (stack overflow), 
-^ Assi5[ra^nt._Sta^^^^ 

♦The assignment operator (i=) is found in the middle of 

an arithmetic expression, 
♦The equals sign is not found after a colon in a multiple 

assignment statement. 

♦The exponent of a real number is not properly written. 

♦The procedure statement with parameters is neither READ 

nor WRITE. 
♦The first parameter of READ or WRITE is neither 1 nor 2. 
♦A comma which separates parameters is omitted. 
♦One of the READ parameters is not an identifier. 
♦One of the WRITE parameters is neither an identifier nor 

a character string enclosed between double quotes. 
♦The identifier parameter of a READ or WRITE procedure 

statement is neither real nor integer. 
♦A left bracket is omitted in a subscripted variable. 
♦The right parenthesis which ends the READ or WRITE procedure 

statement is omitted. 
1 6 Ari tl^e tj.j^^^^^^^^^^^^ 

♦An operator is missing between two operands. 
♦Two operands are found consecutively. 
1 '^ £SJJ§B tl>J^f i£. I^'^k^ 2r Error 

♦The number of left parentheses is not equal to the number 
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of right parentheses in an arithmetic expression. 
18 Standard Function Activation Error 

*The parameter of the standard function is not a simple 

variable. 
*The left or right parenthesis is missing. 
*The parameter is not a real number except for the 

function REAL. 

7 . 2 Execut ion Time Diagnostics 

Errors detected at the time of program execution in ALGOL-8 
cause the following error message on the Teletype printers 

OPS n 
The error codes (n) are given below. When an error condition is 
encountered at execution time, the ALGOL-8 program will halt. 
If recovery is possible (as noted below), the user may press the 
CONT switch of the computer console and the program will resume 
execution. 
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Error 
Code 



Condition 



Recovery 



1 
2 
3 
4 



8 



user array size exceeds the avail- 
able space. 

Division by zero has been attempted 
in the user program 

Integer input outside acceptable 
range 

Attempt to convert a real number 
to an integer which is outside the 
acceptable integer range. 

Attempt to take square root of a 
negative number. 



Attempt to take logarithm of a 
negative number. 



Switch index in users program is 
undefined. 

Users program demands functions 
which have not been loaded. 



No recovery 
possible. 

Division is 
perforraed.. 

Input ignored. 



The real number 
is converted to 
zero 

Square root is 
taken of the 
modulus. 

Logarithm is 
taken of the 
modulus . 

Index is taken 
as 1. 

No recovery 
possible. 
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chapter 8 
OPERATING INSTRUCTIONS 

8>1 compiler 

The compiler consists of 2 paper tapes - 

ALGOL Compiler DEC-08-KAlA-PB 

ALGOL Compiler Reinitialization DEC-08-KA2A-PB 

The compiler will only run in Field 0, since it uses the 

program interrupt facility. The compiler must be reinitialized 

with the second tape, after each compilation, before another 

compilation is attempted, 

£il^A... jOEsr iat i on 

The operation of the compiler is given in the following 
steps which are summarized in the accompanying flow chart 
(figure 8-1). 

a. load compiler with binary loader 

b. load address 400 and start 

c. the program types OPT - 
The options are, 

R - Input/output on high speed reader/punch 
T - Input/Output on low speed reader/punch 

d. place the source program in the appropriate reader, 
turn on the appropriate punch and type R or T. 

e. start Low Speed Teletype reader (if T has been typed) 
f • the program halts at loc. 262 after compilation is 

complete 
g. error messages are typed on the Teletype console and 

the program halts at loc. 3142. 
h, re-initialize the compiler if a further compilation 
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( 1 )--^---- W STOPJ- 



High-Speed Reader 



Put 



I 



Source Tape in HSR 




With Binary 
Loader - Load 
into Field 



Low-Speed Reader 



L 



Depress HSP To ON 



Put Source Tape in LSR 
LjrYPE_T_ j 



Type R 
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Depress LSP ON 
Set LSR To START 




■0 



Yes p^^ « 

'^^"^L Correct Error 



r Compiled Tape is Punched 



r Remove ( 



Compiled Tapep 




Yes 



Load 
Reinitialize 



With Binary 
Loader - Load 



Figure 8-1 Compiling an ALGOL-8 
program 
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f Load Compiled\_ 
\ALG0L-8 Prograity 



with Binary 
Loader 



n 




Yes 




Csee Note 
Below^ 



Load AIiGOL-8 
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L 
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[_ Generate Leader Tape [ 



NOTE: The function loader and functions 
must be used whenever an ALGOL-8 
program uses the pov/er (t) oper- 
ator or any of the standaird fun- 
ctions, SIN, COS, ARCT, LN, EXP, 
and SQRT. 
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of ALGOL Program 
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Figure 8-2 
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Running an ALGOL- 8 Program. 
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is required, by loading the second tape with the 
Binary Loader. 

8j!ijL2_.Ji'^[9l*X .y s age^ 

The compiler uses all memory locations from jZf-7577t The 
double input buffer is at loc, 400 and the single output buffer 
is at 74iZf/2f, 

8. 2 _jDperating System 

There are 3 tapes which make up the ALGOL-8 operating system 

ALGOL OPERATING SYSTEM DEC-08-KA3A-PB 

ALGOL OPERATING SYSTEM, FUNCTION LOADER DEC-08-KA4A-PB 
AND FUNCTIONS 

ALGOL FUNCTION LC^DER OVERLAY DEC-08-KA5A-PB 

The system is based on the floating point package (DEC-8-5-S) 
It will run in any memory field, but will not use more than one 
field. 

The standard functions (SIN, COS, ARCT, LN, EXP, and SQRT) 
are loaded only if they are required by the compiled program* 
They must be loaded if the program calls them explicitly or if 
the exponentiation ( f ) operator is used. 

There are two alternative operating procedures t 
8j, 2^ 1_ Operation - itoFuncticDns^ 

a. Load compiler output with Binary Loader. 

b. Load Operating System (KA3A-PB) with Binary Loader. 

c. Input data must be in the appropriate reader if 
required and, if punched output is required, the 
appropriate punch must be on. 
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d. Load address 400 and start, 

e. The program may be restarted at location 400, 

8 > 2 « 2 Operat ion - Functions Reguired 

a. Load compiler output with Binary Loader. 

b. Load Operating System, Function Loader and Functions 
(KA4A~PB) with Binary Loader, 

c. The Binary Loader loads the operating system and the 
Function Loader, The tape will stop before the 
functions are loaded, 

d. TO load the functions, load address 7400, set bit 
for appropriate reader (as in the Binary Loader) and 
start, 

e. The necessary functions will be loaded and the reader 
will halt at location 7424, (A checksum error will 
cause the loader to halt at location 7511 with the 
checksum difference in the AC, ) The reader will load 
only the needed functions and, in general, the reader 
will halt with the function tape only partly read, 

f . Load the Function Loader Overlay (KA5A-PB) with the 
Binary Loader, 

g. Go to step c of paragraph 8,2,1, 
8j.2,3 Memory Usage 

The Operating System uses locations 0-377 and 4600-7577, 
Functions are loaded by page, downwards (towards 0) from 
location 4600, 

The compiled program is loaded from 400 upwards. The pages 
between the ccm^ipiled program and the functions (or location 4600, 
if no functions are required) are used for array storage. 
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Input to the compiler and data input to the operating system 
may be in parity or non-parity ASCII format paper tape. Blank 
tape, rubout and line-feed characters are ignored. Spaces are 
ignored except in text strings. 

A source program must be terminated by a $, which must be 
the first character of a line, followed by a carriage return. 

8.3.2 Operating System Input 

Input of a data item to the operating system i.e. by a READ 
procedure statement is terrainated by any character which is not 
a number, sign, decimal point or $ (indicating the exponent). 
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APPENDIX A 
ALGOL-8 BASIC SYMBOLS 



Long 


Corresponding 
ALGOL -8 


Basic Symbols 


Representation 


begin 


' BEGIN • 


end 


•END^ 


real 


•REAL^ 


integer 


•INTEGERS 


boolean 


• BOOLEAN • 


array 


•ARRAY • 


switch 


• SWITCH • 


if 


• ip. 


then 


• THEN • 


else 


'ELSE^ 


for 


'FOR' 


step 


• STEP ' 


until 


' UNTIL ' 


do 


•do^ 


goto 


' GOTO • 


comment 


• COMMENT • 


true 


' TRUE ' 


false 


•FALSE' 



Short 


Corresponding 




ALGOL-8 


Basic Symbols 


Representation 


+ 


+ 


- 


- 


X 


* 


/ 


/ 


+ 


+ 


■ sir 


= 


4 


# 


< 


< 


> 


> 


4^ 


< = 


2^ 


> = 


/ 


f 










Power of 10 


$ 


( 


( 
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APPENDIX A (cont'd) 
ALGOL -8 BASIC SYMBOLS 



Long 
Basic Symbols 


Corresponding 

ALGOL- 8 
Representation 


— n 


'NOT' 


A 


'AND' 


V 


'OR' 


~> 


'IMP' 


SH 


'EQU' 







Short 
Basic Symbols 


Correspondincr 

ALGOL- 8 
Representation 


) 


) 


r 


r* 


] 


] 

ft 


> 


•• 



*NOTE 



Shift K=c: 

Shift M=d 
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APPENDIX B 

RESTRICTIONS 
Limitations of the Language 

1. There are no user procedures, 

2. There are no Boolean arrays. 

3. An integer or real array must be one dimensional. 
The lower bound must be either the digit or the 
digit 1. 

The upper bound must be a simple integer variable 
or an unsigned integer. 

4. The subscript of an array variable or of a switch 
designator must be a simple integer variable or an 
unsigned integer. 

5. Variable identifiers are differentiated by the first 
four alphanumeric characters only. 

6. A switch list must be a label list, the labels of which 
must be declared in the same block in which the switch 
declaration appears, or in an outer block. 

7. The while long basic symbol is not recognized. 
Limitations of Program Size and Form 

1. 50 identifiers simultaneously valid. Identifiers are 
defined as simple variables, subscripted variables, 
switch designators and declared labels. 

2. 10 arrays (real or integer). 

3 . 7 nested blocks » 

4. 18 undeclared labels. Undeclared labels are those labels 
whose declaration occurs in the same block after their use, 
or in an outer block. Hence, labels of a switch list are 
undeclared labels. 
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APPENDIX C 
TABLE OF ERRORS 

Long basic symbol error 

1 Identifier Error 

2 Declaration Error 

3 l^ltiple Declaration error 

4 Statement error 

5 Statement end error 

6 Colon and e<jaals sign error 

7 Index error 

8 Constant outside range 

9 Simple Boolean expression error 

10 GOTO statement error 

11 Begin-End error 

12 Capacity overflow error 

13 Assignment statement error 

14 Real number error 

15 Read or write error 

16 Arithmetic expression error 

17 Parenthesis number error 

18 Standard function error 
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APPENDIX D 
SUIIMARY OF COMT^ANDS 



'BEGIN' 



•END' 



tntnAT t 



REAL' A,B,C; 



•integer* I, J, K; 



•boolean* Bl, B2; 



'ARRAY* A Ll«10] , B[;2ftN] ; 



Opening statement parenthesis - 

used to start a program, compound 

statement or block. 

Closing statement parenthesis - 

used to terminate a prograni, 

compound statement or block. 

Real number variable declaration - 

used to identify the real moraber 

variables used v/ithin a program 

or block; in this case A, B and C 

are real variables, 

Integt^r variable declaration - 

used to identify the integer variables 

used within a program or block; in 

this case I, J and K are integer 

variables • 

Boolean variable declaration - 

used to identify the Boolean variables 

used within a program or block. In 

this case Bl and b2 are Boolean 

variables. 

Array declaration - 

used to specify the arrays used 

within a program or block. This 
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•switch* Si=:L1, S 2, STOP; 



•goto* Li 



•COMMENT* TE3a'J 



symbol should be preceded by 

•integer* or •real* to Identify 

the type of array. In ALGOL-8, the 

lower limit must be jZf or 1, and the 

upper limit must be an unsigned 

integer (e.g. 10, above) or a 

simple integer variable (e.g. N, 

above )o Only one-dimensional 

arrays are allowed in ALGOL-S. 

Switch declaration - 

used with •gotO^ S fl] to branch 

an ALGOL-8 program, based on the 

value of an integer index, I. The 

index I may be an expression but its 

values must range from 1 upward. In 

the example given, the possible 

values for I must be 1, 2 and 3. 

GOTO statement - 

specifies that the stat^nent to 

be executed next is the one identified 

by the label L. (L is an identifier 

which is separated from the statement 

which it precedes by a colon o) 

Comment statement - 

provides a means of including 

comments in a program to identify 
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parts and to clarify procedures. 
All characters typed after the 
•comment* and before the semicolon 
are included in the program listing. 
They are not typed during the running 
of a program. 

^IptR •then* Sj if statement - 

R is a relation, such as XiY+Sj 
S is a statement, such as •GOTO* BIG;. 
If the relation R is true, the state- 
ment S will be executed. If the 
relation R is false, S is skipped and 
the next statement in sequence is 
executed. S may be a compound state- 
ment, bracketed by •BEGIN' and •END*. 

*IF* R *THEN* Si •else* S2 j Conditional statement - 

if relation R is true, statement Si 
is executed and S2 is skipped; if 
R is false statement Si is skipped 
and S2 is executed. Si must not be 
a conditional statement; however, S2 
may be conditional, thus establishing 
nested conditional statements. 

•for* Vlt= Al, A2, A3 *D0* Si; FOR statement-- 

statement Sl is executed repeatedly 
with the controlled variable vl 
taking on each of the values of Al, 
A2, and A3. For example, Sl could 
be a block to compute the sine of an 
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angle vl, where Al, A2, 
and A3 are the desired 
values of vl. 
•F0R'V1:=:X1 •STEP*X2 •UNTIL*X3 •DO'Sl; Step--until statement - 

statement SI is executed 
repeatedly with the control 
variable Vl taking on 
values of Xl initially, and 
increasing to X3 by adding 
on the increment X2, For 
esmmple, if Si computes the 
sine of an angle, XI 
(initial) could be degrees, 
X2 (increment) could be 10 
degrees, X3 (final) could 
be 90 degrees. 
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APPENDIX E 
NOTES ON ALGOL 



COMPILER 



The ALGOL-8 compiler is analyzed with emphasis on the implementation, performance, 
and error diagnosis. 

(1) The ALGOL-8 compiler will halt with every syntex error and does not continue to scan 
the rest of the source. This is typical of many ALGOL compilers. 

(2) After each compilation load the first part of RE-INIT to type out the symbol table and 
load the second part of "RE-INIT to reinitialize the compiler. This is only necessary if 
the identifier printout is desired. 

(3) Error diagnosis performed by the compiler is fairly good with the exception that the 
message typed out may sometimes appear vague and as a result becomes unclear, each error 
code covers many different messages. This results from the complexity of the programming 
language and the ability of the program to be contained in 4K. 

The following observations were made during compilation time. 

(1) Boolean expressions must be written as specified in section 3.2.1 of the manual 

(2) I/O of Boolean identifiers and mixed mode constructions with Boolean mode identifiers 
are not allowed. 

(3) All "END" statements must be terminated by (;). 

(4) The following refers to dummy statements. 
•BEGIN' 



'BEGIN' 

'IF' 1 = J 'THEN' 'GOTO' EXIT; 



'END' 
EXIT: 

'END' 
$ 
The above situation will always cause BAD 'GOTO' error message, because 'EXIT' is 
outside the block where 'GOTO' statement tries to link. 
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The correct form is os follows: 

•BEGIN' 

'IF' NJ 'THEN 'GOTO' EXIT; 



EXIT: 
'END' 

(5) With regards to "GOTO" statement by referencing ALGOL-8 Manual page 5-2, 

Section 5.2 GOTO examples have shown different result. 

GOTO example 1 O.K. 

GOTO example 2 error 10 during compilation 

refer to the attached sheet. 



OPERATING SYSTEM 

(1) DOT (.) is not allowed for integer input. It does not give any error message but simply 
treats it as a null data. 

(2) WRITE 0, "INPUTU h^uuuyU COSINE'O; SKIP; will occasionally print out as: 
INPUTCOSINE. The seven spaces between the two words are not printed out. 

(3) In the statement 'FOR' V: = 1 ' . . . .'UNTIL' N 'DO' 

if N has value a of or a negative number, all the statements within the range of 'DO' v/ill be 
ignored, but no error message will appear. 

(4) "VARIABLE ARRAY" program is attached for reference, because the "WRITE" 
statement under the control of "FOR" yields only 1 line result so that most of them will 
not be readable. The result is also attached. 



ALGOL Functions including both Basic and Standard. 

(1) "ENTIER" function test results ore attached at the end of this section. 

(2) Boolean operator _|AND' does not function properly at all times for example: 
T = true 

F = false 
' T 'AND'T-J^T Correct 

T 'AND' F-^T Wrong, should be F 

F 'AND' F-*T Wrong, should be F 

Refer to results of Boole 1 A & 2A. 
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(3) SINE function: 
let X = argument 
.001<x<.05 

Then error E for oil the arguments in the range above is .0000001 < E < .00001 
3/50 yields 5-digit accuracy. 
47/50 yields 6-digit accuracy. 

(4) COSINE function: 

The range for argument x where .001 <x < .025 almost half have 6-digit accuracy and the 
other half have 5-digit accuracy with -.000001 as error. 

For other arguments of other ranges, the perctage which guarantees 6-digit accuracy improves 
and the error is seldom greater than .000001 . 

(5) ARCTAN function: 

The range for argument x where .001 <x < .025 few had an error of -.000001 and 
guarantee of 6-digit accuracy is given. 

(^) Exponential function: 

The range for the argument x where < x < 14 produced excellent results with the 

following exceptions: 

ef 9. yields 8103.07 instead of 8103.08 The error is -.01 . 

efll . yields 59873.9 instead of 59874.1 with error 1 .2. 

eflS yields 442412. instead of 442413. with error -1 .0. 

(7) ABS function operates accurately. 

(8) Natural log function: 

The range of the argument x where 1-5^5' .030. Gne sixth yield 6-digit accuracy, 
whereas most of them yield only 5-digit accuracy and one tenth yield approximately 4-digit 
accuracy. 

(9) Square Root function: 

The range of argument where 1 . < x < 40. All results have a 6-digit accuracy. 
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USERS' AAANUAL CHANGES 

(1) Page 1-2. 'INTEGER'SUM: (colon should be changed to semicolon after sum). 

(2) Page 1-8. 'FOR* E 'STEP* I 'UNTIL" F 'DO's. It would be much better and less 
confusing if A semicolon 0) »s inserted after S. 

(3) Page 3-3. Division (/) is considered as Real Operator. (Integer division is 
allowed.) 

(4) Page 4-1 . Chapter 4. AM declaration statements should be listed before their 
explanation, because all declaration statements must appear at the beginning of 

a block. 



(5) Page 5-2. Section 5.3 
Treat 'FOR* V:= A . . . . as 2. 

(6) Page 5-4. The total number of conditional and FOR statements that can be 
accommodated at one time is eighteen. 

This particular combination is not tested. 

However, its equivalent: 

MF* . . . 'THEN' .... 'ELSE' was tested and it can accommodate at one time 9. 

(7) Page 5-5. Section 5.5 

B: = A*A*A; is a dummy statement. 

(8) Page 5-6. In the example: 
K: 1+ J; should be K: = I + J; 

(9) Appendix B: At no time con a single ALGOL program contain more than ]0 (TEN) different 
dimensioned variables. 

Ex: A (1:N), B(1:N) .... 
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VARIABLE ARRAY 



•BEGIN' 

'COMMENT' ARRARY STATEMENT TEST; 

'INTEGER' N,V; 

'REAL' 'ARRAY' AXtI:N3bBXCl:Nl; 

WRITE (1, "TEST FOR ARRAY STATEMENT") ;SKIP; 

WRITE 0, "TYPE A NUMBER IN, MAX=ljEl") ;SKIP; 

READ 0, N) ;SKIP; 

'FOR' V:=l 'STEP' 1 'UNTIL' N 'DO' 

'BEGIN' 

READ (2,AXCV1) ;SKIP; 

BXCV*=1/AXIWI;SKIP; 

'END'; 

'FOR' V:=l 'STEP' 1 'UNTIL' N 'DO' 

WRITE 0,AXrV*BX|^CI);SKIP; 

'FOR' V:=l 'STEP' 1 'UNTIL' N 'DO' 

WRITE (2,AXtVXBXr^ ;SKIP; 

'END' 
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GOTO, EXAMPLE 1 



'BEGIN' 

'INTEGER' 1, J; 

WRITE (1, "GOTO TEST");SKIP; 

READ (1J:.J);SKIP; 

'BEGIN' 

'IF' l=J 'THEN' 'GOTO' OK; 

WRITE (1, "NOT TOO GOOD") ;SKIP; 

'GOTO' EXIT; 
OK: WRITE (I, "O.K. ") ;SKIP; 

'END'; 
EXIT: WRITE (1, "EXIT") ;SKIP; 

'END' 
$ 



GOTO, EXAMPLE 2 



'BEGIN' 
'INTEGER' I, J; 

WRITE (1, "GOTO TEST") ;SKIP; 
READO, I, J);SKIP; 
'BEGIN' 

'IF' l=J 'THEN' 'GOTO' OK; 
WRITE 0, "NOT TOO GOOD") ;SKIP; 
'GOTO' EXIT; 
OK: WRITE (l,"O.K.");SKIP; 

Qndj 

EXIT: WRTTE (1 , "EXIT") ;SKIP; 

'END' 

$ 
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'BEGIN' 

'REAL' A, B; 

'INTEGER' I, J; 

WRITE 0, "DUMMY TEST") ;SKIP;SKIP; 

READ 0, A, I, J ;SKIP/ 

WRITE (1, "A,BJ,J ARE NOT DECLARED IN THE NEXT BLOCK") ;SKIP; 

WRITE , "NEXT IS A NEW BLOCK") ;SKIP; 

'BEGIN' 

'IF' I = J 'THEN' 'GOTO' EXIT; 

WRITE (1 /'WRITE 5 SKIPS") ;SKIP;SKIP;SKIP; 

SKIP;SKIP; 

B:=A*A*A; 

EXIT: 

'END' 

'END' 
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EXIT: 

$ 



'BEGIN' 

■REAL' A, B; 

'INTEGER' I, J; 

WRITE , "DUMMY TEST") ;SKIP;SKIP; 

READ (1, A J); 

WRITE 0/'A,B, I, J ARE NOT DECLARED IN THE NEXT BLOCK") ;SKIP; 

WRITE (l/'NEXT IS A NEW BLOCK") ;SKIP; 

'BEGIN' 

'IF' l = J 'THEN' 'GOTO' EXIT; 

WRITE (1 /'WRITE 5 SKIPS") ;SKIP;SKIP;SKIP; 

SKIP;SKIP; 

B: =A*A*A; 

'END' 

'END' 
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